#!/usr/bin/perl
use English;

$a = "abc--bcd--";

$a =~ m/(.{2}).+?\1/;
print $MATCH . "\n";

$a =~ m/((.)\2).+?\1/;
print $MATCH . "\n";
